﻿
Partial Class _Error
    Inherits BasePage

    Protected Sub _Error_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not LastError Is Nothing Then
            lblErrorDetails.Text = "<hr />"
            lblErrorDetails.Text += LastError.Message & "<hr />"
            If Not String.IsNullOrEmpty(LastError.HelpLink) Then
                lblErrorDetails.Text += "See: " & LastError.HelpLink & "<hr />"
            End If

#If DEBUG Then
            lblErrorDetails.Text += LastError.StackTrace & "<hr />"
#End If
        End If
    End Sub

    Protected Sub _Error_LoadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComplete

    End Sub
End Class
